home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 2.1.l < prev    next >
Text File  |  2007-02-28  |  494b  |  23 lines
  1. 0010 SETGRAPHIC 0
  2. 0020 FULLSCREEN 
  3. 0030 FOR LOOP1:=0 TO 15 DO
  4. 0040 BACKGROUND LOOP1
  5. 0050 CLEAR 
  6. 0060 FOR LOOP2:=0 TO 15 DO
  7. 0070 BORDER LOOP2
  8. 0080 FOR PAUSE:=1 TO 90 DO NULL
  9. 0090 ENDFOR LOOP2
  10. 0100 ENDFOR LOOP1
  11. 0110 FRAME 50,100,50,100
  12. 0120 FOR SCOOT:=50 TO 100 STEP 5 DO
  13. 0130 MOVETO SCOOT,40
  14. 0140 DRAWTO SCOOT,120
  15. 0150 ENDFOR SCOOT
  16. 0160 FRAME 0,319,0,199
  17. 0170 FOR SCAT:=150 TO 200 STEP 5 DO
  18. 0180 MOVETO SCAT,40
  19. 0190 DRAWTO SCAT,120
  20. 0200 ENDFOR SCAT
  21. 0210 WHILE KEY$=CHR$(0) DO NULL
  22. 0220 SETTEXT 
  23.